Шаг 14 - Добавляем пункт меню.

Автор Каев А. Г.

Задача добавить пункт меню и связать со скриптом. Смотрим код.

b = av.GetProject.FindGUI("View").GetMenuBar
newPositionIndex = b.GetControls.Count - 2
newMenu=b.New( newPositionIndex )
newMenu.SetLabel("Test")
theItem1= newMenu.New(-1)
theItem1.SetLabel("Hello")
theItem1.SetClick( "Script1" )

Теперь результат.

14_1.gif

После щелчка срабатывает скрипт.

MsgBox.Info("Menu","")

14_2.gif

Ну и сам код. Первое мы находим объект меню для вида.

b = av.GetProject.FindGUI("View").GetMenuBar

Получаем позицию и добавляем в эту позицию пункт меню.

newMenu=b.New( newPositionIndex )

Дальше устанавливаем надпись и создаем подпункт.

theItem1= newMenu.New(-1)

И опять надпись, и свойство какой скрипт вызывать.

Hosted by uCoz